home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / gui / gengui.lha / GenGui / Examples / border.gui < prev    next >
Encoding:
Text File  |  1994-04-29  |  1.2 KB  |  70 lines
  1.  
  2. #c_source
  3.    char * mx_labels[]={"Amiga 500","Amiga 1000","Amiga 2000",
  4.                        "Amiga 3000","Amiga 4000",NULL};
  5.  
  6.  
  7. #end_source
  8.  
  9. Projectname InnerGui
  10.  
  11. HBox
  12.    vbox
  13.    end
  14.    MX
  15.       stdline 5
  16.       stdcol 2
  17.       tags GTMX_Labels,(ULONG)mx_labels
  18.       id 1
  19.    end
  20.    button
  21.       vrel 1
  22.       text "Just a Test"
  23.       id 2
  24.    end
  25. end
  26.  
  27. #c_source
  28.  
  29. int Custom(struct WinInfo *winfo,
  30.                      struct NewGadget *ng,
  31.                      struct GadInfo *gad,
  32.                      int left, int top, int width, int height)
  33. {
  34.    if(winfo->Render) {
  35.       DrawBevelBox(winfo->Window->RPort,ng->ng_LeftEdge,ng->ng_TopEdge,
  36.                                      ng->ng_Width,ng->ng_Height,
  37.                                      GT_VisualInfo,winfo->Visual,TAG_DONE);
  38.    }
  39.  
  40.    return(SubGui(winfo,&InnerGui,ng->ng_LeftEdge,ng->ng_TopEdge,
  41.                                  ng->ng_Width,ng->ng_Height));
  42. }
  43.  
  44. #end_source
  45.  
  46. ProjectName TestPro
  47. VBox
  48.    Custom
  49.       Custom Custom
  50.       id 0
  51.    end
  52.  
  53.    hbox
  54.       stdline 1
  55.       button
  56.          text "OK"
  57.          id 4
  58.       end
  59.       hbox
  60.       end
  61.       button
  62.          text "Cancel"
  63.          id 5
  64.       end
  65.    end
  66. end
  67.  
  68.  
  69.  
  70.